home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 1 / Pier Shareware 1.iso / 007a / courspas.exe / CHAP08.EXE / PROC5.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-15  |  1KB  |  37 lines
  1. program Parameter;  {PROC5.PAS}
  2. uses
  3.   crt;  { unité de Turbo Pascal 6 }
  4.  
  5. var
  6.   a,b: integer; { variables globales }
  7.  
  8. {------------------------------------------------}
  9. { transmission                                   }
  10. {------------------------------------------------}
  11. procedure transmission(a: integer; var b: integer);
  12. begin
  13.   a:= a + 100;
  14.   b:= b + 100;
  15.   write('Valeurs au sein de TRANSMISSION             : ');
  16.   writeln('a = ',a:3,'       ','b = ',b:3);
  17. end;
  18. {------------------------------------------------}
  19.  
  20. begin { programme principal }
  21.   clrscr;
  22.   a:= 1;
  23.   b:= 2;
  24.   writeln('a ---> paramètre par valeur');
  25.   writeln('b ---> paramètre par adresse');
  26.   writeln('============================');
  27.   writeln;
  28.   write('Avant l''appel de la procédure TRANSMISSION  : ');
  29.   writeln('a = ',a:3,'       ','b = ',b:3);
  30.   transmission(a,b);
  31.   write('Après avoir quitté la procédure TRANSMISSION: ');
  32.   writeln('a = ',a:3,'       ','b = ',b:3);
  33.   gotoxy(1,25);
  34.   write('Veuillez appuyer sur <CR>...');
  35.   readln;
  36. end.
  37.